home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1994 March / Internet Info CD-ROM (Walnut Creek) (March 1994).iso / networking / terms / kermit / c / flxpt1.txt < prev    next >
Encoding:
Text File  |  1988-08-16  |  2.3 KB  |  123 lines
  1.  
  2. *kermit for flex 9 system
  3. *
  4. * by D J ROWLAND
  5. *ex-
  6. *Brighton Polytechnic Computer centre
  7. *Watts Building 
  8. *Lewes Rd.
  9. *Moulsecoomb
  10. *Brighton 
  11. *Sussex   BN2 4GJ
  12. *
  13. *Queries now handled by  Peter Morgan
  14. *tel. 0273 693655 x2165
  15.  
  16. *This program is a very basic kermit, the code is based
  17. *on the apple version of kermit and modified to run on the 
  18. *6809 cpu. 
  19. *
  20. *I dont guarantee its operation! its a bit crude but it does work!
  21. *It has be run with the DEC VAX kermit server and the DEC pro
  22. *kermit server
  23.  
  24. *It will get a file , send a file , and close down the server
  25. *It operates with text files only and does not have 8 bit quoting
  26.  
  27. * This software can be copied , modified etc. as required but
  28. * subject to the kermit CUCCA conditions.
  29.  
  30. *There are no set and show commands
  31. *To change the values modify the source!
  32. *There is a receive data timer (for packet rcv)
  33. *this can be modified or deleted!
  34. *It is a simple timing loop round the rcv data subr.
  35.  
  36. **
  37. * PGM:  A minor bug I have noticed:
  38. * after a transfer (say Flex to Vax), this program reports
  39. * file in use when you try the next transfer.  I believe this
  40. * is caused by a missing call to close file  (error conditions
  41. * seem to be handled OK with  JSR FMSCLS
  42.  
  43.  
  44.  
  45. *sytem equates
  46. cons equ $F7E8 console i/f
  47. line equ $F7EA line i/f
  48.  
  49. fms equ $d406
  50. fmscls equ $d403
  51. getfil equ $cd2d
  52. setext equ $cd33
  53. rpterr equ $cd3f
  54.  
  55. eom equ 4
  56. xlev equ 200
  57. xon equ $11
  58. xoff equ $13
  59. ctrlc equ $03
  60. ctrly equ $19
  61. max equ 255
  62. xlo equ 20
  63. suspec equ $04
  64.  
  65. *ram save locations
  66.  org $2000
  67. inp rmb 2
  68. outp rmb 2
  69. startq rmb 256
  70. end rmb 2
  71. count rmb 1
  72. fcs rmb 1
  73. lastf rmb 1
  74. suspend rmb 1 break out character
  75. nolock rmb 1
  76. tmode rmb 1
  77. scount rmb 1
  78. linbuf rmb 4
  79. point rmb 2
  80.  rmb 64
  81. stack rmb 1
  82. monito rmb 1 diagnostic mode flag
  83. linlen rmb 1
  84. lfnext rmb 1
  85.  
  86. ram equ *
  87.  
  88.  org $0000
  89. begin jmp start
  90.  
  91. mdone fcc 'done'
  92.  fcb 4
  93. prompt fcb $0d,$0a,4
  94. menu1 fcc 'Please select option :- '
  95.  fcb $0d,$0a
  96.  fcc '0. Terminal to line'
  97.  fcb $0d,$0a
  98.  fcc '1. Return to flex'
  99.  
  100.  fcb $0d,$0a
  101.  fcc '2. File send from Flex'
  102.  fcb $0d,$0a
  103.  fcc '3. File receive to Flex'
  104.  fcb $0d,$0a
  105.  fcc '4. Close server'
  106.  fcb $0d,$0a
  107.  fcc '5. Monitor on'
  108.  fcb $0d,$0a
  109.  fcc '6. Monitor off'
  110.  fcb $0d,$0a
  111.  fcc ' ? '
  112.  fcb 4
  113.  
  114. escstr fcc 'Type  <CTRL D> to exit'
  115.  fcb $0d,$0a,4
  116. filena fcc 'Flex Filename? '
  117.  fcb 4
  118. filenr fcc 'Remote filename? '
  119.  fcb 4
  120. query fcc ' ? '
  121.  fcb 4
  122.  
  123.